subroutine post_init()

use basic_var
use mpi_basic_var

implicit none

open(unit=1,file='post_iter.dat')
read(1,*) post_itmin      ;  read(1,*) post_itmax       ;   read(1,*) post_itout      ;
read(1,*) dt 
read(1,*) MPI_STAT   ;  read(1,*) FULL_STAT   ;   read(1,*) BLOCK_NUM 
read(1,*) FFT_STAT   ;  read(1,*) ns
close(1)

itmax = post_itmax

BLOCK_NUM_STR = ''
if(BLOCK_NUM /= 0) then
   BLOCK_NUM_STR = '_???_'
   write(BLOCK_NUM_STR(2:4),'(I3.3)') BLOCK_NUM
endif

if(n_rank.eq.0) then
  print*,'--------------------------------------------'
  print*,'|         POST CUBE-FLU 0.1 running...          |'
  print*,'|   starting from iteration: ',post_itmin,' | '
  print*,'--------------------------------------------'
endif

end subroutine post_init

